home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 3 / Amoszine 3.adf / MORE_SOURCE / AJC-SKYROCKET.AMOS / AJC-SKYROCKET.amosSourceCode
AMOS Source Code  |  1992-02-26  |  510b  |  27 lines
  1. '
  2. ' "SKYROCKET"  
  3. ' By Andrew Campbell 
  4. '  
  5. Screen Open 0,640,256,2,Hires
  6. Curs Off : Flash Off : Curs Off : Hide On : Cls 0
  7. Palette $7,$F0
  8.  
  9. X2=Rnd(600)+40 : Y2=Rnd(150)+4
  10. Cls 0
  11.  
  12.  Repeat 
  13.   Randomize Timer
  14.   _D=Rnd(3)+1
  15.   If _D=1 : Inc X2 : End If 
  16.   If _D=2 : Dec X2 : End If 
  17.   If _D=3 : Inc Y2 : End If 
  18.   If _D=4 : Dec Y2 : End If 
  19.   Plot X2,Y2,1
  20.   Def Scroll 1,0,0 To 640,256,Rnd(5),Rnd(5)
  21.   Scroll 1
  22.   If X2<0 or X2>630 or Y2<0 or Y2>250
  23.    X2=Rnd(625)+10 : Y2=Rnd(250)+4
  24.   End If 
  25.  Until Mouse Key
  26.  
  27.  Edit